MAYBE 1.395
↳ HASKELL
↳ IFR
((until :: (a -> Bool) -> (a -> a) -> a -> a) :: (a -> Bool) -> (a -> a) -> a -> a) |
import qualified Prelude |
if p x then x else until p f (f x)
until0 x p f True = x until0 x p f False = until p f (f x)
↳ HASKELL
↳ IFR
↳ HASKELL
↳ BR
((until :: (a -> Bool) -> (a -> a) -> a -> a) :: (a -> Bool) -> (a -> a) -> a -> a) |
import qualified Prelude |
↳ HASKELL
↳ IFR
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
((until :: (a -> Bool) -> (a -> a) -> a -> a) :: (a -> Bool) -> (a -> a) -> a -> a) |
import qualified Prelude |
undefined
| False
= undefined
undefined = undefined1
undefined0 True = undefined
undefined1 = undefined0 False
↳ HASKELL
↳ IFR
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
↳ HASKELL
↳ Narrow
↳ Narrow
(until :: (a -> Bool) -> (a -> a) -> a -> a) |
import qualified Prelude |
↳ HASKELL
↳ IFR
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
↳ HASKELL
↳ Narrow
↳ QDP
↳ NonTerminationProof
↳ Narrow
new_until(vx3, vx4, ba) → new_until0(vx3, vx4, ba)
new_until0(vx3, vx4, ba) → new_until(vx3, vx4, ba)
new_until(vx3, vx4, ba) → new_until0(vx3, vx4, ba)
new_until0(vx3, vx4, ba) → new_until(vx3, vx4, ba)
↳ HASKELL
↳ IFR
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
↳ HASKELL
↳ Narrow
↳ Narrow
↳ QDP
↳ PisEmptyProof